﻿Imports bus
Imports dto
Public Class ManHinhXemNguoidung
    Dim bus As New NGUOIDUNGBus(ketnoi)
    Dim dto As New Nguoidungdto

    Private Sub ManHinhXemNguoidung_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
        Catch ex As Exception
        End Try
    End Sub
    Private Sub ManHinhXemNguoidung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim busQ As New QuyenBus(ketnoi)
        'Dim ma As Integer = busQ.MaQuyen(Dtoquyen.TenQuyen)
        'cacNutNhan(Me, ma, Me.Name)
        DataGridView1.DataSource = bus.LayBangTable
    End Sub

    Private Sub ThêmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThêmToolStripMenuItem.Click
        ManHinhDangKy.ShowDialog()
        DataGridView1.DataSource = bus.LayBangTable
    End Sub
    Private Sub XoáNgườiDùngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XoáNgườiDùngToolStripMenuItem.Click
        Try
            If DataGridView1.RowCount <= 0 Then Exit Sub
            If MsgBox("Bạn có muốn xoá người dùng " & DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value & " này hay không?", MsgBoxStyle.OkCancel, "Thông báo") = MsgBoxResult.Cancel Then Exit Sub
            If Dtoquyen.TenQuyen <> strTQL Then
                MsgBox("Bạn không có quyền xóa người dùng này ,chỉ có tổng quản lý mới có quyền này", , "Thông báo")
                Exit Sub
            End If
            If DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value = dtonguoidung.TenDangNhap Then
                MsgBox("Bạn không thể xoá tài khoản của chính bạn", , "Thông báo")
                Exit Sub
            End If
            bus.Xoa(DataGridView1.SelectedRows(0).Cells("id").Value)
            DataGridView1.DataSource = bus.LayBangTable
        Catch ex As Exception
        End Try
    End Sub

    Private Sub XemMậtKhẩuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XemMậtKhẩuToolStripMenuItem.Click
        XemMậtKhẩuToolStripMenuItem.Checked = Not XemMậtKhẩuToolStripMenuItem.Checked
        DataGridView1.Columns("Pass").Visible = Not DataGridView1.Columns("Pass").Visible
    End Sub

    Private Sub ManHinhXemNguoidung_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            DICHTIENGANH(Me, ketnoi)
        Catch ex As Exception
        End Try
    End Sub
End Class